Лабораторная работа № 9

Разработка текстового редактора

Этапы работы

1.   Создайте проект Editor.dpr. Имеющейся форме сопоставьте файл Form_Edit.pas. Форму назовите fmEdit.

2.   Разместите на форме компонент Memo, который назовите mmText.

3.   Поместите на форму главное меню (назовите его MainMenu), в котором создайте следующие пункты, назовите их соответствующим образом и задайте им «горячие» клавиши (свойство ShortCut):

Пункт меню	Имя	«Горячие» клавиши
Файл	mnmFile
Создать	mnmNew	Ctrl + N
Открыть…	mnmOpen	Ctrl + O
Сохранить	mnmSave	Ctrl + S
Сохранить как…	mnmSaveAs
-	mnmLine  *
Выход	mnmExit	F10
Формат	mnmFormat
Шрифт…	mnmFont	Ctrl + D
Справка	mnmHelp	F1

4.   Для пункта меню Создать опишите событие очистки текстового окна, используя процедуру Clear :

mmText.Clear;

5.   На палитре компонентов перейдите на страницу Dialogs. Разместите на форме невизуальные компоненты OpenDialog, SaveDialog, FontDialog (уберите из их имен цифру 1).

6.   Загрузка текста из файла (открытие файла)

Для компонента OpenDialog в свойстве Filter задайте несколько типов текстовых файлов, которые можно просматривать в текстовом окне (см. рис.).

Для пункта Открыть… опишите событие OnClick:

if OpenDialog.Execute

  then mmText.Lines.LoadFromFile(OpenDialog.FileName);

7. Сохранение текста в файле

Для компонента SaveDialog задайте те же типы файлов, что и для открытия файла. Опишите в разделе interface модуля Form_Edit строковую переменную FName.

Выполните команду меню Project, View Source (Проект, Показать Исходный Текст) и в тексте программы Editor.dpr после создания формы добавьте операцию «обнуления» этой строки.

Для пункта Сохранить как… опишите событие OnClick (процедура mnmSaveAsClick):

Для пункта Сохранить опишите событие OnClick:

8. Для пункта Шрифт… опишите событие OnClick:

9. Для пункта Справка опишите событие OnClick, при котором вызывается новое окно с информацией о программе и ее разработчике (соответствующую форму необходимо предварительно создать).

10. Под главным меню разместите компонент ToolBar (панель инструментов), который можно найти на странице Win32 палитры компонентов. На нем разместите кнопки SpeedButton, соответствующие командам Создать (spbtNew), Открыть (spbtOpen), Сохранить (spbtSave), Шрифт (spbtFont), Справка (spbtHelp). Рисунки для кнопок можно найти в папке C:\Program Files\Common Files\Borland Shared\Images\Buttons. Для каждой из них (событие OnClick) поставьте в соответствие уже имеющиеся методы. Для разделителя между кнопками Сохранить, Шрифт и Справка можно использовать компонент Bevel (страница Additional) со свойствами: Width – 2, Style – bsRaised. Для каждой кнопки задайте всплывающую подсказку.

11. Используя встроенный графический редактор (Tools, Image Editor), разработайте иконку для проекта. Загрузите ее в проект - Project, Options..., Application (Проект, Параметры…, Приложение). Там же задайте имя редактора, которое будет отображаться на кнопке на панели задач (это же имя стоит задать и в заголовке окна редактора).

*    Пункт, содержащий символ «минус», образует в дальнейшем разделительную линию.